home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / EDUCNOMY / ASTROSET.LZH / STEPPR.BAS < prev    next >
BASIC Source File  |  1985-12-20  |  384b  |  15 lines
  1.  
  2. 10 REM  STEPPER-MOTOR DEMO
  3. 15 REM
  4. 20 X=49152: REM  PORT ADDRESS
  5. 25 DATA 9,1,3,2,6,4,12,8
  6. 30 DIM A(8)
  7. 35 FOR I=0 TO 7: READ A(I): NEXT I
  8. 40 INPUT "START, STOP ";C,D
  9. 45 FOR J=C TO D STEP SGN(D-C)
  10. 50 K=8*((J/8)-INT(J/8))
  11. 55 POKE X,A(K)
  12. 60 NEXT J
  13. 65 END
  14.  
  15.